home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir39 / clipboot.zip / INCLUDE1.H < prev    next >
C/C++ Source or Header  |  1993-05-03  |  3KB  |  81 lines
  1. /*┌──────────────────────────────────────────────────────────────────────┐
  2.  ▌│ Program Name: INCLUDE1.H        Copyright: Gallagher Computing Corp. │
  3.  ▌│     Language: Clipper 5.2          Author: Kevin S Gallagher         │
  4.  ▌├──────────────────────────────────────────────────────────────────────┤
  5.  ▌│ Comments:                                                            │
  6.  ▌│ When ready for production undefine TRIAL_ME_OUT                      │
  7.  ▌│ To use grump.lib - define MR_GRUMP and include grump.lib in the      │
  8.  ▌│ link file.                                                           │
  9.  ▌└──────────────────────────────────────────────────────────────────────┘
  10.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀           */
  11.  
  12. #include "box.ch"
  13. #include "inkey.ch"
  14. #include "memoedit.ch"
  15.  
  16. #ifdef MR_GRUMP
  17. #include "grump.ch"
  18. #endif
  19.  
  20. #define TRIAL_ME_OUT
  21.  
  22. #ifdef TRIAL_ME_OUT
  23. #define Q_FILE    "QBOOT.DAT"
  24. #define AUTOFILE  "AUTOEXEC.KSG"
  25. #define CONFFILE  "CONFIG.SYS"
  26. #else
  27. #define Q_FILE    "C:\QBOOT.DAT"
  28. #define AUTOFILE  "C:\AUTOEXEC.BAT"
  29. #define CONFFILE  "C:\CONFIG.SYS"
  30. #endif
  31.  
  32.  
  33. #ifndef MR_GRUMP
  34. #xtranslate AKill( <a>, <e> )                    => ;
  35.             asize( adel( <a>, <e> ), len( <a> ) - 1 )
  36.  
  37. #xtranslate CENTER(<row>, <msg> [, <color> ] )   => ;
  38.             SetPos( <row>, int(( maxcol()+1 - len(<msg>)) / 2)) ; ;
  39.             DispOut( <msg> [, <color>] )
  40.  
  41. #endif
  42.  
  43. #xtranslate LSTRINT( <n> )                       => ;
  44.             ltrim( str( int( <n> ) ) )
  45.  
  46. #xtranslate ISCHAR( <v> )                        => ;
  47.             ( valtype( <v> ) == "C" )
  48.  
  49. #xtranslate Center(<row>, <msg> [ , <color> ] )  => ;
  50.             DevPos( <row>, int((maxcol() + 1 - len( <msg> )) / 2)) ; ;
  51.             DevOut( <msg> [, <color>] )
  52.  
  53. #define blocks_   { | x , y | x[1] < y[1] }
  54. #define MR        maxrow()
  55. #define MC        maxcol()
  56. #define SHORTY       20
  57. #define FO_READWRITE 2
  58. #define NEW_LINE          chr(13)+chr(10)
  59. #define SaveFullScreen()  oldscrn := savescreen(0,0,maxrow(),maxcol())
  60. #define RestFullScreen()  restscreen(0,0,maxrow(),maxcol(),oldscrn)
  61.  
  62. #define SYS_COLOR {"W+/B","W/B","GR+/B","B/BG,W+/B","W/N","RB+/B",;
  63.                    "W+/R","W/B,W+/BG" }
  64.  
  65. #define MENUCOLOR SYS_COLOR[4]
  66. #define GETCOLOR  SYS_COLOR[2]
  67. #define DISPCOLOR SYS_COLOR[2]
  68. #define SAYCOLOR  SYS_COLOR[1]
  69. #define HICOLOR   SYS_COLOR[3]
  70. #define BACKCOLOR SYS_COLOR[1]
  71. #define DOSCOLOR  SYS_COLOR[5]
  72. #define ENCHCOLOR SYS_COLOR[6]
  73. #define ERRCOLOR  SYS_COLOR[7]
  74. #define EDCOLORS  SYS_COLOR[8]
  75.  
  76. #define SHOW_INFO aQboot_[nSubs][3]
  77.  
  78. #define PSEUDO_NAME 3
  79. #define LONG_DESC   4
  80.  
  81.